(calc-version): New function.

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 32dfd5bd8d5e248b865eeffb89ebfe0969ba315a..12b1dc6da0269329daa21201fea3b1e3e24c08c0 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1148,6 +1148,11 @@ If nil, selections displayed but ignored.")
 
 (defvar calc-alg-map) ; Defined in calc-ext.el
 
+(defun calc-version ()
+  "Return version of this version of Calc."
+  (interactive)
+  (message (concat "Calc version " calc-version)))
+
 (defun calc-mode ()
   "Calculator major mode.